EnigmA Amiga Run 1997 May/EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso/programs/write/module/project.module

Text File | 1996-09-18 | 1KB | 115 lines

MODULE Project;

VAR
  RETSTRING : STRING;

MENU $menu1;

ITEM $item1_1 "O"
  Standard.M_Open
END;

ITEM $item1_2 "alt r"
  Standard.Reload
END;

ITEMBAR;

ITEM $item1_3 ""
END;

SUB $sub3_1 ""
  _changed:=FALSE
END;

SUB $sub3_2 ""
  _editMode:=NOT _editMode
END;

ITEMBAR;

ITEM $item1_4 "alt n"
  Standard.M_New
END;

ITEMBAR;

ITEM $item1_5 "R"
   IF GetString(FORMAT($text1,_fileName),_fileName,_fileName) THEN
     _path:=_fileName
   END;
END;

ITEM $item1_6 "S"
  Save(_fileName)
END;

ITEM $item1_7 "A"
  IF GetFile(_fileName,"",_fileName){@SAVE} THEN
    Save(_fileName)
  END;
END;

ITEM $item1_8 ""
  IF Save(_fileName) THEN
    IF GetFile("","",_fileName) THEN
      Open(_fileName)
    END;
  END;
END;

ITEM $item1_9 "*"
  Save("PRT:")
END;

ITEMBAR;

ITEM $item1_10 ""
END;

SUB $sub10_1 "B"
  IF NewEd(_currentConfig) THEN
    Window(0,0,0,0)
  END;
END;

SUB $sub10_2 "W"
  IF NewEd(_currentConfig) THEN
    Window(100,50,100,50)
  END;
END;

ITEM $item1_11 "escape"
  Iconify
END;

ITEM $item1_12 "alt h"
  Hide
END;

ITEM $item1_13 "§"
  WinArranger(1)
END;

ITEM $item1_14 "$"
  WinManager
END;

ITEMBAR;

ITEM $item1_15 "?"
  About
END;

ITEMBAR;

ITEM $item1_16 "E"
  Standard.Save_Quit
END;

ITEM $item1_17 "Q"
  Standard.M_Quit
END;

END Project.